inherited dlgIncasation: TdlgIncasation
  Left = 681
  Top = 321
  VertScrollBar.Range = 0
  BorderStyle = bsDialog
  Caption = #1048#1085#1082#1072#1089#1089#1072#1094#1080#1103
  ClientHeight = 184
  ClientWidth = 278
  Constraints.MinHeight = 211
  Constraints.MinWidth = 286
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 152
    Width = 278
    Height = 32
    inherited BitBtn1: TBitBtn
      Left = 71
      Top = 32
      Visible = False
    end
    inherited BitBtn2: TBitBtn
      Left = 173
      Top = 4
    end
  end
  inherited ToolBar1: TToolBar
    Width = 278
    Height = 0
    Enabled = False
    inherited ToolButton1: TToolButton
      Enabled = False
    end
    inherited ToolButton2: TToolButton
      Enabled = False
    end
    inherited ToolButton3: TToolButton
      Enabled = False
    end
    inherited ToolButton4: TToolButton
      Enabled = False
    end
  end
  object Panel2: TPanel [2]
    Left = 0
    Top = 0
    Width = 278
    Height = 152
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object ButCashFrom: TSpeedButton
      Left = 10
      Top = 12
      Width = 123
      Height = 24
      Caption = #1048#1085#1082#1072'c'#1089#1072#1094#1080#1103
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = ButCashFromClick
    end
    object ButCashTo: TSpeedButton
      Left = 10
      Top = 82
      Width = 123
      Height = 24
      Caption = #1042' '#1082#1072#1089#1089#1091
      Flat = True
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      OnClick = ButCashToClick
    end
    object But_Zotchet: TSpeedButton
      Left = 10
      Top = 54
      Width = 123
      Height = 24
      Caption = 'Z '#1054#1090#1095#1077#1090
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = But_ZotchetClick
    end
    object ButSetTime: TSpeedButton
      Left = 142
      Top = 82
      Width = 123
      Height = 24
      Hint = #1058#1086#1083#1100#1082#1086' '#1087#1086#1089#1083#1077' '#1079#1072#1082#1088#1099#1090#1086#1081' '#1089#1084#1077#1085#1099
      Caption = #1059#1089#1090#1072#1085#1086#1074#1080#1090#1100' '#1074#1088#1077#1084#1103
      Enabled = False
      Flat = True
      ParentShowHint = False
      ShowHint = True
    end
    object SpeedButton2: TSpeedButton
      Left = 142
      Top = 54
      Width = 123
      Height = 24
      Caption = #1059#1089#1090#1072#1085#1086#1074#1080#1090#1100' '#1082#1083#1080#1096#1077
      Enabled = False
      Flat = True
      ParentShowHint = False
      ShowHint = True
    end
    object lbCashSumma: TLabel
      Left = 142
      Top = 127
      Width = 65
      Height = 16
      Caption = '10000 '#1088#1091#1073'.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsUnderline]
      ParentFont = False
    end
    object btRefreshCashSum: TSpeedButton
      Left = 60
      Top = 124
      Width = 73
      Height = 24
      Caption = #1042' '#1082#1072#1089#1089#1077':'
      Flat = True
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      OnClick = btRefreshCashSumClick
    end
    object neCashSumma: TDBNumberEditEh
      Left = 142
      Top = 15
      Width = 123
      Height = 19
      AlwaysShowBorder = True
      currency = True
      EditButtons = <>
      Flat = True
      TabOrder = 0
      Value = 0.000000000000000000
      Visible = True
      OnExit = neCashSummaExit
    end
  end
  inherited ActionList1: TActionList
    Left = 188
    Top = 58
    inherited aCancel: TAction
      SecondaryShortCuts.Strings = (
        'Esc')
      OnExecute = aCancelExecute
    end
  end
  inherited PropStorage: TPropStorageEh
    Section = 'dlgIncasation'
    Left = 230
    Top = 52
  end
  object QIncass: TpFIBQuery
    Transaction = trIncass
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'INSERT INTO RKO ('
      '    SUMMA,'
      '    DOCDATETIME'
      ') VALUES ('
      '    :SUMMA,'
      '    current_timestamp'
      ')'
      'returning id')
    Left = 96
    Top = 8
    qoStartTransaction = True
  end
  object trIncass: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 136
    Top = 8
  end
  object QCheckIncasso: TpFIBQuery
    Transaction = trIncass
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'select 1 as ex_rco from rdb$relations '
      '  where rdb$relation_name = '#39'RKO'#39)
    Left = 96
    Top = 40
    qoStartTransaction = True
  end
end
